set WshShell=WScript.CreateObject("WScript.Shell")
strDesktop=WshShell.SpecialFolders("Desktop")
set oShellLink=WshShell.CreateShortcut(strDesktop & "\Codematic.lnk")
oShellLink.TargetPath="E:\Luomg\Demo\LCL\bin\Codematic\Codematic.exe"
oShellLink.WindowStyle=1
oShellLink.Hotkey="CTRL+SHIFT+E"
oShellLink.IconLocation="E:\Luomg\Demo\LCL\bin\Codematic\app.ico,0"
oShellLink.Description="my shortcut descriptiion"
oShellLink.WorkingDirectory=strDesktop
oShellLink.Save

